home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 1 / MacMania 1.toast / Educational / Education'More / M-Q / Math.cpt / Math / card_4120.txt < prev    next >
Text File  |  1990-12-18  |  3KB  |  163 lines
  1. -- card: 4120 from stack: in
  2. -- bmap block id: 4556
  3. -- flags: 0000
  4. -- background id: 2700
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global right, wrong
  9.   put 0 into right
  10.   put right into  field numright
  11.  
  12.   put 0 into wrong
  13.   put wrong into  field numwrong
  14.   click at loc of card field step1
  15. end opencard
  16.  
  17.  
  18.  
  19.  
  20. -- part 1 (field)
  21. -- low flags: 01
  22. -- high flags: 0000
  23. -- rect: left=235 top=114 right=142 bottom=304
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 65535
  27. -- font id: 3
  28. -- text size: 24
  29. -- style flags: 256
  30. -- line height: 32
  31. -- part name: second
  32.  
  33.  
  34. -- part 2 (field)
  35. -- low flags: 00
  36. -- high flags: 0002
  37. -- rect: left=227 top=230 right=259 bottom=304
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 65535
  41. -- font id: 3
  42. -- text size: 24
  43. -- style flags: 256
  44. -- line height: 32
  45. -- part name: result
  46. ----- HyperTalk script -----
  47. on returnInField
  48.   global right,wrong
  49.   if card field result <> (card field first)*(card field second) then
  50.     put "Try again" into card field feedback
  51.     put wrong +1 into field numwrong
  52.     talk card field feedback ,150,150
  53.     put "" into card field result
  54.  
  55.   end if
  56.   if card field result = (card field first)*(card field second) then
  57.  
  58.     put "Right" into card field feedback
  59.     put right + 1 into field numright
  60.     talk card field feedback,150,150
  61.  
  62.     put round of random of 99 into card field first
  63.     talk card field first,150,150
  64.     talk "times",150,150
  65.     put round of random of 99 into card field second
  66.     talk card field second,150,150
  67.     put "" into card field result
  68.  
  69.   end if
  70.  
  71.   put "" into card field feedback
  72.   put "" into card field step1
  73.   put "" into card field step2
  74.  
  75.   click at the loc of card field result
  76.  
  77. end returnInField
  78.  
  79.  
  80.  
  81. -- part 4 (field)
  82. -- low flags: 01
  83. -- high flags: 0000
  84. -- rect: left=235 top=79 right=109 bottom=304
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 65535
  88. -- font id: 3
  89. -- text size: 24
  90. -- style flags: 256
  91. -- line height: 32
  92. -- part name: first
  93.  
  94.  
  95. -- part 5 (field)
  96. -- low flags: 01
  97. -- high flags: 0000
  98. -- rect: left=341 top=123 right=149 bottom=463
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 3
  103. -- text size: 18
  104. -- style flags: 256
  105. -- line height: 24
  106. -- part name: feedback
  107.  
  108.  
  109. -- part 8 (field)
  110. -- low flags: 00
  111. -- high flags: 0002
  112. -- rect: left=235 top=158 right=187 bottom=304
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 65535
  116. -- font id: 3
  117. -- text size: 24
  118. -- style flags: 256
  119. -- line height: 32
  120. -- part name: step1
  121. ----- HyperTalk script -----
  122. on returnInfield
  123.   click at the loc of card field step2
  124. end returnInfield
  125.  
  126.  
  127. -- part 9 (field)
  128. -- low flags: 00
  129. -- high flags: 0002
  130. -- rect: left=227 top=188 right=217 bottom=286
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 65535
  134. -- font id: 3
  135. -- text size: 24
  136. -- style flags: 256
  137. -- line height: 32
  138. -- part name: step2
  139. ----- HyperTalk script -----
  140. on returnInfield
  141.   click at the loc of card field result
  142. end returnInfield
  143.  
  144.  
  145. -- part contents for background part 6
  146. ----- text -----
  147. test
  148.  
  149. -- part contents for card part 1
  150. ----- text -----
  151. 48
  152.  
  153. -- part contents for card part 4
  154. ----- text -----
  155. 79
  156.  
  157. -- part contents for background part 22
  158. ----- text -----
  159. 0
  160.  
  161. -- part contents for background part 23
  162. ----- text -----
  163. 0